home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / fgl105c.zip / 11-05.C < prev    next >
Text File  |  1991-05-05  |  901b  |  45 lines
  1. main()
  2. {
  3.    int new_mode, old_mode;
  4.  
  5.    new_mode = fg_bestmode(320,200,2);
  6.    if (new_mode < 0 || new_mode == 12) {
  7.       printf("This program requires a 320 ");
  8.       printf("x 200 color graphics mode.\n");
  9.       exit();
  10.       }
  11.    old_mode = fg_getmode();
  12.    fg_setmode(new_mode);
  13.    fg_allocate(1);
  14.    fg_sethpage(1);
  15.  
  16.    fg_setcolor(9);
  17.    fg_rect(0,319,0,199);
  18.    fg_setcolor(15);
  19.    fg_rect(132,188,50,150);
  20.  
  21.    fg_setcolor(10);
  22.    fg_move(160,67);
  23.    fg_draw(175,107);
  24.    fg_draw(140,82);
  25.    fg_draw(180,82);
  26.    fg_draw(145,107);
  27.    fg_draw(160,67);
  28.    fg_paint(160,77);
  29.    fg_paint(150,87);
  30.    fg_paint(160,87);
  31.    fg_paint(170,87);
  32.    fg_paint(155,97);
  33.    fg_paint(165,97);
  34.  
  35.    while (kbhit() == 0) {
  36.       fg_waitfor(1);
  37.       fg_scroll(136,184,50,150,-4,0);
  38.       }
  39.    fg_waitkey();
  40.  
  41.    fg_freepage(1);
  42.    fg_setmode(old_mode);
  43.    fg_reset();
  44. }
  45.